home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
clisp.zip
/
DEFSEQ.FAS
< prev
next >
Wrap
Text File
|
1994-02-05
|
2KB
|
36 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2
#29Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 D7 D8 DA DB D6 DC DD DE DF E0 E1 6F 10 00 2E 0D 19 01)
LIST #.#'IDENTITY #.#'LIST-UPD #.#'LIST-ENDTEST #.#'LIST-FE-INIT #.#'LIST-ACCESS
#.#'LIST-ACCESS-SET #.#'LIST-LLENGTH #.#'MAKE-LIST #.#'LIST-ELT #.#'LIST-SET-ELT
#.#'LIST-INIT-START #.#'LIST-FE-INIT-END %DEFSEQ
)
#Y(#:TOP-LEVEL-FORM-3
#29Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA DB DC DD DE DF E0 DC DD E1 E2 6F 10 00 2E 0E 19 01)
VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD
#.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH #.#'MAKE-ARRAY
#.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
)
#Y(#:TOP-LEVEL-FORM-4
#29Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA DB DC DD DE DF E0 DC DD E1 E2 6F 10 00 2E 0E 19 01)
STRING #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD
#.#'VECTOR-FE-ENDTEST #.#'CHAR #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH #.#'MAKE-STRING
#.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
)
#Y(#:TOP-LEVEL-FORM-5
#29Y(00 00 00 00 00 01 D5 D6 D7 D8 D9 DA DB DC DD DE DF E0 DC DD E1 E2 6F 10 00 2E 0E 19 01)
BIT-VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
#.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'BIT #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH
#.#'MAKE-BIT-VECTOR #.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
)
#Y(#:TOP-LEVEL-FORM-6
#57Y(00 00 00 00 00 01 D5 1A 28 90 00 00 2A 01 D6 A9 5C 02 0B 00 00 A8 D7 D8 D9 DA DB DC DD DE
DF E0 B2 69 0C 01 DD DE E2 E3 6F 10 00 2E 0F 16 02 7F 00 98 20 55 16 01 C0 19 01
)
(1. 2. 4. 8. 16. 32.) UNSIGNED-BYTE #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST
#.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY
#.#'VECTOR-LENGTH
#Y(#:TOP-LEVEL-FORM-6-1 #17Y(01 00 00 00 00 02 A8 37 07 07 00 01 FB 30 19 19 02) NIL)
#.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
)